cyber.net interactivo 1997 March/inter@ivo 1997-03.iso/cybint14/bin/shared.dxr/00900_interactivo.ls

Text File | 1997-02-17 | 3.9 KB | 201 lines

on initGlobals
  global active
  set active to 0
end

on wait time
  startTimer()
  repeat while the timer < (time * 20)
    nothing()
  end repeat
end

on HotSpots first, last, som, cur
  set already to 0
  set check to 0
  set sense to first + ((last - first + 1) / 2)
  set middle to sense
  set hot to first
  set cold to first
  repeat while sense <= last
    if rollOver(sense) then
      if the visible of sprite hot = 1 then
        set already to 1
      end if
      set check to 1
      if (som <> 0) and (already = 0) then
        sound playFile 2, som
      end if
      set the visible of sprite hot to 1
      exit repeat
    else
      set the visible of sprite hot to 0
    end if
    set hot to hot + 1
    set sense to sense + 1
  end repeat
  if check = 1 then
    repeat while cold < middle
      if cold <> hot then
        set the visible of sprite cold to 0
      end if
      set cold to cold + 1
    end repeat
    cursor([901, 902])
  else
    cursor(-1)
  end if
  if check = 1 then
    return 1
  else
    return 0
  end if
end

on hotBlinks first, last, cur
  set check to 0
  set sense to first + ((last - first + 1) / 2)
  set middle to sense
  set hot to first
  set cold to first
  set blink to first
  repeat while sense <= last
    if rollOver(sense) then
      set check to 1
      set the visible of sprite hot to 1
      exit repeat
    end if
    set hot to hot + 1
    set sense to sense + 1
  end repeat
  if check = 1 then
    repeat while cold < middle
      if cold <> hot then
        set the visible of sprite cold to 0
      end if
      set cold to cold + 1
    end repeat
    cursor([901, 902])
  else
    repeat while blink < middle
      if the visible of sprite blink = 1 then
        set the visible of sprite blink to 0
        if blink = (middle - 1) then
          set the visible of sprite first to 1
        else
          set the visible of sprite (blink + 1) to 1
        end if
        exit repeat
      end if
      set blink to blink + 1
    end repeat
    cursor(-1)
  end if
  if check = 1 then
    return 1
  else
    return 0
  end if
end

on somBlinks first, last, som, cur
  global active
  set local to the mouseCast
  if hotBlinks(first, last, cur) = 1 then
    if active = 0 then
      sound playFile 2, som
      set active to 1
    end if
    if the mouseCast <> local then
      sound playFile 2, som
    end if
  else
    set active to 0
  end if
  Loopframe()
end

on InVis first, last
  set cont to first
  if last = 0 then
    set the visible of sprite cont to 0
  else
    repeat while cont <= last
      set the visible of sprite cont to 0
      set cont to cont + 1
    end repeat
  end if
end

on onVis first, last
  set cont to first
  if last = 0 then
    set the visible of sprite cont to 1
  else
    repeat while cont <= last
      set the visible of sprite cont to 1
      set cont to cont + 1
    end repeat
  end if
end

on Loopframe
  updateStage()
  go(the frame)
end

on videoButton vidsprite, vidframe
  sound stop 1
  sound stop 2
  set the visible of sprite vidsprite to 1
  go(vidframe)
end

on videoInit vidsprite, vidcast
  set the startTime of sprite vidsprite to 0
  set the sound of cast vidcast to 1
end

on videoLoop vidsprite, vidcast
  if the movieTime of sprite vidsprite = the duration of cast vidcast then
    set the sound of cast vidcast to 0
    set the visible of sprite vidsprite to 0
    updateStage()
    go(the frame + 1)
  else
    go(the frame)
  end if
end

on videoClick vidsprite, vidcast
  set the sound of cast vidcast to 0
  set the visible of sprite vidsprite to 0
  updateStage()
  go(the frame + 1)
end

on videoExit backframe
  updateStage()
  go(backframe)
end

on startNext first, last
  global present
  set the visible of sprite first to 1
  set present to first
end

on next
  global present
  set present to present + 1
  set the visible of sprite present to 1
end

on checkVis checked
  if the visible of sprite checked = 1 then
    return 1
  else
    return 0
  end if
end